home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ddialw / ddialw.exe / DDial.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-01-31  |  3.0 KB  |  102 lines
  1. VERSION 5.00
  2. Object = "{2A203971-584C-11D1-99FC-00C04FD8DC2E}#1.0#0"; "DDial.dll"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   2580
  6.    ClientLeft      =   510
  7.    ClientTop       =   945
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2580
  11.    ScaleWidth      =   4680
  12.    Begin VB.CommandButton Command4 
  13.       Caption         =   "Dial Using "
  14.       Height          =   375
  15.       Left            =   2880
  16.       TabIndex        =   8
  17.       Top             =   1920
  18.       Width           =   1455
  19.    End
  20.    Begin VB.CommandButton Command3 
  21.       Caption         =   "Properties+Num"
  22.       Height          =   375
  23.       Left            =   2880
  24.       TabIndex        =   7
  25.       Top             =   1440
  26.       Width           =   1455
  27.    End
  28.    Begin VB.CommandButton Command2 
  29.       Caption         =   "Dial Properties"
  30.       Height          =   375
  31.       Left            =   2880
  32.       TabIndex        =   6
  33.       Top             =   960
  34.       Width           =   1455
  35.    End
  36.    Begin VB.TextBox Text2 
  37.       Height          =   285
  38.       Left            =   600
  39.       TabIndex        =   2
  40.       Text            =   "John Doe"
  41.       Top             =   1080
  42.       Width           =   1575
  43.    End
  44.    Begin VB.TextBox Text1 
  45.       Height          =   285
  46.       Left            =   600
  47.       TabIndex        =   1
  48.       Text            =   "555 5555"
  49.       Top             =   480
  50.       Width           =   1575
  51.    End
  52.    Begin VB.CommandButton Command1 
  53.       Caption         =   "Dial"
  54.       Height          =   375
  55.       Left            =   2880
  56.       TabIndex        =   0
  57.       Top             =   480
  58.       Width           =   1455
  59.    End
  60.    Begin DDIALLibCtl.DDialCtl DDialCtl1 
  61.       Height          =   495
  62.       Left            =   240
  63.       OleObjectBlob   =   "DDial.frx":0000
  64.       TabIndex        =   3
  65.       Top             =   1920
  66.       Width           =   615
  67.    End
  68.    Begin VB.Label Label2 
  69.       Caption         =   "Enter Name"
  70.       Height          =   255
  71.       Left            =   600
  72.       TabIndex        =   5
  73.       Top             =   840
  74.       Width           =   1575
  75.    End
  76.    Begin VB.Label Label1 
  77.       Caption         =   "Enter Number To Dial"
  78.       Height          =   255
  79.       Left            =   600
  80.       TabIndex        =   4
  81.       Top             =   240
  82.       Width           =   1575
  83.    End
  84. Attribute VB_Name = "Form1"
  85. Attribute VB_GlobalNameSpace = False
  86. Attribute VB_Creatable = False
  87. Attribute VB_PredeclaredId = True
  88. Attribute VB_Exposed = False
  89. Private Sub Command1_Click()
  90. 'n% = DDialCtl1.Dial(Form1.hWnd, Text1.Text, Text2.Text)
  91.     DDialCtl1.Dial Form1.hWnd, Text1.Text, Text2.Text
  92. End Sub
  93. Private Sub Command2_Click()
  94.     DDialCtl1.DialProperties
  95. End Sub
  96. Private Sub Command3_Click()
  97.     DDialCtl1.DialPropertiesNumber (Text1.Text)
  98. End Sub
  99. Private Sub Command4_Click()
  100.     DDialCtl1.DialUsing
  101. End Sub
  102.